home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / mel.vim < prev    next >
Encoding:
Text File  |  2001-05-10  |  3.7 KB  |  122 lines
  1. " Vim syntax file
  2. " Language:    MEL (Maya Extension Language)
  3. " Maintainer:    Robert Minsk <egbert@centropolisfx.com>
  4. " Last Change:    May 27 1999
  5. " Based on:    Bram Moolenaar <Bram@vim.org> C syntax file
  6.  
  7. " For version 5.x: Clear all syntax items
  8. " For version 6.x: Quit when a syntax file was already loaded
  9. if version < 600
  10.   syntax clear
  11. elseif exists("b:current_syntax")
  12.   finish
  13. endif
  14.  
  15. " when wanted, highlight trailing white space and spaces before tabs
  16. if exists("mel_space_errors")
  17.   sy match    melSpaceError    "\s\+$"
  18.   sy match    melSpaceError    " \+\t"me=e-1
  19. endif
  20.  
  21. " A bunch of usefull MEL keyworks
  22. sy keyword    melBoolean    true false yes no on off
  23.  
  24. sy keyword    melFunction    proc
  25. sy match    melIdentifier    "\$\(\a\|_\)\w*"
  26.  
  27. sy keyword    melStatement    break continue return
  28. sy keyword    melConditional    if else switch
  29. sy keyword    melRepeat    while for do in
  30. sy keyword    melLabel    case default
  31. sy keyword    melOperator    size eval env exists whatIs
  32. sy keyword    melKeyword    alias
  33. sy keyword    melException    catch error warning
  34.  
  35. sy keyword    melInclude    source
  36.  
  37. sy keyword    melType        int float string vector matrix
  38. sy keyword    melStorageClass    global
  39.  
  40. sy keyword    melDebug    trace
  41.  
  42. sy keyword    melTodo        contained TODO FIXME XXX
  43.  
  44. " MEL data types
  45. sy match    melCharSpecial    contained "\\[ntr\\"]"
  46. sy match    melCharError    contained "\\[^ntr\\"]"
  47.  
  48. sy region    melString    start=+"+ skip=+\\"+ end=+"+ contains=melCharSpecial,melCharError
  49.  
  50. sy case ignore
  51. sy match    melInteger    "\<\d\+\(e[-+]\=\d\+\)\=\>"
  52. sy match    melFloat    "\<\d\+\(e[-+]\=\d\+\)\=f\>"
  53. sy match    melFloat    "\<\d\+\.\d*\(e[-+]\=\d\+\)\=f\=\>"
  54. sy match    melFloat    "\.\d\+\(e[-+]\=\d\+\)\=f\=\>"
  55. sy case match
  56.  
  57. sy match    melCommaSemi    contained "[,;]"
  58. sy region    melMatrixVector    start=/<</ end=/>>/ contains=melInteger,melFloat,melIdentifier,melCommaSemi
  59.  
  60. sy cluster    melGroup    contains=melFunction,melStatement,melConditional,melLabel,melKeyword,melStorageClass,melTODO,melCharSpecial,melCharError,melCommaSemi
  61.  
  62. " catch errors caused by wrong parenthesis
  63. sy region    melParen    transparent start='(' end=')' contains=ALLBUT,@melGroup,melParenError,melInParen
  64. sy match    melParenError    ")"
  65. sy match    melInParen    contained "[{}]"
  66.  
  67. " comments
  68. sy region    melComment    start="/\*" end="\*/" contains=melTodo,melSpaceError
  69. sy match    melComment    "//.*" contains=melTodo,melSpaceError
  70. sy match    melCommentError "\*/"
  71.  
  72. sy region    melQuestionColon matchgroup=melConditional transparent start='?' end=':' contains=ALLBUT,@melGroup
  73.  
  74. if !exists("mel_minlines")
  75.   let mel_minlines=15
  76. endif
  77. exec "sy sync ccomment melComment minlines=" . mel_minlines
  78.  
  79. " Define the default highlighting.
  80. " For version 5.7 and earlier: only when not done already
  81. " For version 5.8 and later: only when an item doesn't have highlighting yet
  82. if version >= 508 || !exists("did_mel_syntax_inits")
  83.   if version < 508
  84.     let did_mel_syntax_inits = 1
  85.     command -nargs=+ HiLink hi link <args>
  86.   else
  87.     command -nargs=+ HiLink hi def link <args>
  88.   endif
  89.  
  90.   HiLink melBoolean    Boolean
  91.   HiLink melFunction    Function
  92.   HiLink melIdentifier    Identifier
  93.   HiLink melStatement    Statement
  94.   HiLink melConditional Conditional
  95.   HiLink melRepeat    Repeat
  96.   HiLink melLabel    Label
  97.   HiLink melOperator    Operator
  98.   HiLink melKeyword    Keyword
  99.   HiLink melException    Exception
  100.   HiLink melInclude    Include
  101.   HiLink melType    Type
  102.   HiLink melStorageClass StorageClass
  103.   HiLink melDebug    Debug
  104.   HiLink melTodo    Todo
  105.   HiLink melCharSpecial SpecialChar
  106.   HiLink melString    String
  107.   HiLink melInteger    Number
  108.   HiLink melFloat    Float
  109.   HiLink melMatrixVector Float
  110.   HiLink melComment    Comment
  111.   HiLink melError    Error
  112.   HiLink melSpaceError    melError
  113.   HiLink melCharError    melError
  114.   HiLink melParenError    melError
  115.   HiLink melInParen    melError
  116.   HiLink melCommentError melError
  117.  
  118.   delcommand HiLink
  119. endif
  120.  
  121. let b:current_syntax = "mel"
  122.